home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / board / Cyber56khz.lha / Cyber56khz.e < prev    next >
Text File  |  1997-04-15  |  706b  |  27 lines
  1. MODULE 'intuition/screens'
  2.  
  3. ENUM NONE, NOSCREEN
  4.  
  5. PROC main()
  6.  
  7. DEF screen:PTR TO screen,contents[10]:STRING,handle
  8.  
  9.     IF handle:=Open('ENV:CyberGraphx/NOPASSTHROUGH',1005)
  10.         ReadStr(handle,contents)
  11.         Close(handle)
  12.  
  13.         Execute('SetENV CyberGraphX/NOPASSTHROUGH 1',0,NIL)
  14.     
  15.         IF (screen:=OpenScreenTagList(NIL,[SA_DEPTH, 1,SA_DISPLAYID,$39024,NIL]))=NIL THEN Raise(NOSCREEN)
  16.         WriteF('\nCyber56khz (15/04/97).\nWritten By Dale Kirkwood <kirkwood@thenet.co.uk>\nFor The Ayrshire Amiga Society.\n\nA quick hack for the needy.\n\n')
  17.         IF screen THEN CloseScreen(screen)
  18.  
  19.         IF handle:=Open('ENV:CyberGraphX/NOPASSTHROUGH',1006)
  20.             Write(handle,contents,StrLen(contents))
  21.             Close(handle)
  22.         ENDIF
  23.  
  24.     ENDIF    
  25.  
  26. ENDPROC
  27.